Initial revision
authorRichard M. Stallman <rms@gnu.org>
Sat, 29 May 1993 06:38:50 +0000 (06:38 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sat, 29 May 1993 06:38:50 +0000 (06:38 +0000)
lisp/term/lk201.el [new file with mode: 0644]

diff --git a/lisp/term/lk201.el b/lisp/term/lk201.el
new file mode 100644 (file)
index 0000000..3d7a2a0
--- /dev/null
@@ -0,0 +1,21 @@
+(define-key function-key-map "\e[17~" [f6])
+(define-key function-key-map "\e[18~" [f7])
+(define-key function-key-map "\e[19~" [f8])
+(define-key function-key-map "\e[20~" [f9])
+(define-key function-key-map "\e[21~" [f10])
+(define-key function-key-map "\e[23~" [f11])
+(define-key function-key-map "\e[24~" [f12])
+(define-key function-key-map "\e[25~" [f13])
+(define-key function-key-map "\e[26~" [f14])
+(define-key function-key-map "\e[28~" [help])
+(define-key function-key-map "\e[29~" [do])
+(define-key function-key-map "\e[1~" [find])
+(define-key function-key-map "\e[2~" [insert])
+(define-key function-key-map "\e[3~" [remove])
+(define-key function-key-map "\e[4~" [select])
+(define-key function-key-map "\e[5~" [prior])
+(define-key function-key-map "\e[6~" [next])
+(define-key function-key-map "\e[31~" [f17])
+(define-key function-key-map "\e[32~" [f18])
+(define-key function-key-map "\e[33~" [f19])
+(define-key function-key-map "\e[34~" [f20])